home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Opus5.5 / LhexInstall.lha / InstallOpus_d next >
Text File  |  1999-05-12  |  41KB  |  1,522 lines
  1. ; Script to install Directory Opus version 5.5
  2. ;
  3. ; Directory Opus Install Version $VER: Install-Opus 5.5  (28.08.96)
  4. ; COPYRIGHT ©1996 GP SOFTWARE, AUSTRALIA
  5. ; note uses Opus<Alt-Shift>5
  6. ; now installs new catalogs if they are on the disk.
  7.  
  8.  
  9. (onerror
  10.     (makeassign "DOPUSDEST" (safe))    
  11. )
  12.  
  13. (complete 0)
  14.  
  15. ;
  16. ;check user has Dos 2
  17. ;
  18.  
  19. (set #DOSTYPE (/ (getversion) 65536))
  20. (if
  21.     (NOT (>= #DOSTYPE 37))
  22.      (abort "Directory Opus 5 benötigt AmigaDOS 2.04 oder höher."
  23.         " Bevor Sie Opus 5 benutzen können, müssen Sie auf V2.04 oder höher upgraden.")
  24. )
  25.  
  26.  
  27. (set @default-dest "Work:")
  28.  
  29. (set #Dopus_prog "DOpus5:DirectoryOpus")
  30. (set #Loadwb "C:LoadWb")
  31. (set #Loadwb_old "C:LoadWb_old")
  32. (set #Has_loadwb_old 0)
  33. (set #Has_loaddb 0)
  34. (set #Inst_choice 0)
  35. (set #HB_choice 0)
  36. (set #Changed 0)
  37. (set #Inst_core 0)
  38.  
  39. (set #DName1 "AMINET31")
  40. (set #DName2 "AMINET31")
  41. (set #Disk1_Name "AMINET31:Opus5.5/")
  42. (set #Disk2_Name "AMINET31:Opus5.5/")
  43. (set #TLArchive    "MWB_DOpus8c.lha")
  44. (set #CatalogFiles "CatFiles.lha")
  45. (set #Is_update 0)
  46.  
  47. (set #DOpus_Dest (getassign "DOpus5" "a"))
  48. (set #O_DOpus_Dest (getassign "DOpus5" "a"))
  49. (set #Go "Weiter")
  50. (set #Skip "Diesen Teil überspringen")
  51.  
  52.  
  53.  
  54. ;
  55. ; Procedure signal
  56. ; in case Opus is re-installed. The notification on the modules
  57. ; directory can cause problems so signal Opus to turn off notifications
  58.  
  59. (procedure signal_opus
  60.  
  61.     (set #Want_disk 1)
  62.     (get_disk)
  63.     (set #Sigs (tackon #Disk1_Name "dopusmsg"))
  64.     (if (exists #Sigs (noreq))
  65.         (run (cat #Sigs " DOPUS.1 \"command set notify off\""))
  66.     )
  67. )
  68.  
  69.  
  70. ;
  71. ; Procedure get_lhex 
  72. ;
  73.  
  74.  
  75. (procedure get_lhex
  76.  
  77.     (if ( = (exists "ram:lhex" (noreq)) 0)
  78.         (
  79.         (set #Want_disk 1)
  80.         (get_disk)
  81.         (working #Title_msg
  82.             "Lese die Installationsdisk für Directory Opus-Dateien.")
  83.         (copyfiles (source (tackon #Disk1_Name "lhex")) (dest "ram:"))
  84.         )
  85.     )
  86. )
  87.  
  88. ;
  89. ; Procedure get_disk 
  90. ; get the correct disk for a program
  91. ;
  92.  
  93. (procedure get_disk
  94.  
  95.     (if (= #Want_disk 1)
  96.         (set #DiskName #DName1)
  97.         (set #DiskName #DName2)
  98.     )
  99.     (askdisk
  100.         (prompt #Title_msg
  101.             "\nBitte legen Sie die CD \""#DiskName"\" ein.")
  102.         (help "Legen Sie die CD ein, um die Installation fortzusetzen.")
  103.         (assigns)
  104.         (dest #DiskName)
  105.     )
  106.     (set #Current_disk #Want_disk)
  107. )
  108.  
  109. ;
  110. ; Procedure install_arexx  ;
  111. ; From Leo Davidson collection.
  112. ;
  113.  
  114. (procedure install_arexx
  115.  
  116.     (set #Title_msg "Installation des ARexx-Archivs.\n\n")
  117.     (get_lhex)
  118.     (if     (askbool (prompt #Title_msg
  119.                 "Wir haben ein Archiv mit ARexx-Skripten und weiteren Daten für Opus von "
  120.                 "verschiedenen Benutzern beigelegt. Die meisten Skripte erfordern eine "
  121.                 "weitere Installation nach Ablauf dieses Skriptes.\n\n"
  122.                 "Wollen Sie die ARexx-Archive installieren?\n")
  123.             (help "Ja, tun Sie's! Die sind großartig!")
  124.         )
  125.         (
  126.         (set #Changed 1)
  127.         (set #Want_disk 2)
  128.         (get_disk)
  129.         (if    (> (+ (database "total-mem")) 1000000)
  130.             (
  131.             (working #Title_msg
  132.                 "Kopiere Dateien.")
  133.             (copyfiles (source (tackon #Disk2_Name "ARexx.lha")) (dest "ram:"))
  134.             (set #SRC "ram:")
  135.             )
  136.             (set #SRC #Disk2_Name)
  137.         )
  138.         (working #Title_msg
  139.             "Dearchiviere und installiere ARexx-Skripte.\n\n"
  140.             "Ein wenig Geduld...\n\n"
  141.             "Das dauert nicht lang.")
  142.             
  143.         (run (cat "ram:lhex >NIL: <NIL: -qfw=DOPUSDEST: x "#SRC"ARexx.lha"))
  144.         (delete "ram:ARexx.lha" (safe))
  145.         (run "c:protect DOPUSDEST:ARexx/#? +s")
  146.  
  147.         (message #Title_msg
  148.             "Die ARexx-Skripte sind installiert. Lesen Sie bitte "
  149.             "den Anfang der Skriptdateien für Informationen über "
  150.             "deren Funktion und die Benutzung.\n\n"
  151.             "Die Skripte sind in \"DOpus5:Arexx\", weitere Zusatzmodule sind in "
  152.             "\"DOpus5:Storage/Modules\", und einige der Zusätze haben AmigaGuides "
  153.             "die in \"DOpus5:Help\" sind. Es befinden sich außerdem einige neue "
  154.             "Piktogramme in \"DOpus5:Icons\".\n"
  155.             "\nZur Aktivierung der Module müssen Sie diese nach \"DOpus5:Modules\" "
  156.             "verschieben und Opus neustarten."
  157.         )
  158.         )
  159.     )
  160. )
  161.  
  162. ;
  163. ; Procedure install_mwbextras ;
  164. ; MWB_DOpus_8_Install 1.0 (11.8.96)
  165. ; Install originally written by Leo Davidson.
  166. ;
  167.  
  168. (procedure install_mwbextras
  169.  
  170.     (set #Title_msg "MWB_DOpus V8.0 Installation.\n\n")
  171.     (get_lhex)
  172.     ;- Introductory message 
  173.  
  174.     (if    (askbool (prompt #Title_msg
  175.                 "Entwickelt von Trevor Morris and Leo Davidson\n\n"
  176.                 "MagicWorkbench Toolbarpiktogramme und Hintergründe "
  177.                 "für Directory Opus 5.5 (und andere Programme).\n\n"
  178.                 "Diese bieten ein hübsches Set von Bildern für "
  179.                 "Werkzeugleiste und Piktogramme, ob mit oder ohne MagicWorkbench."
  180.                 "\n\nWollen Sie diese in Ihrem System installieren?")
  181.             (help "Ja, tun Sie's! Die sind großartig!")
  182.         )
  183.         (
  184.         (set #Changed 1)
  185.         (set #Want_disk 2)
  186.         (get_disk)
  187.         (if    (> (+ (database "total-mem")) 1000000)
  188.             (
  189.             (working #Title_msg
  190.                 "Kopiere Dateien.")
  191.             (copyfiles (source (tackon #Disk2_Name #TLArchive)) (dest "ram:"))
  192.             (set #SRC "ram:")
  193.             )
  194.             (set #SRC #Disk2_Name)
  195.         )
  196.         (working #Title_msg
  197.             "Entpacke das MWB-Archiv.\n\n"
  198.             "Schon mal ans Schachspielen gedacht?....\n\n"
  199.             "Ähh, wäre ein \"Power\"-Amiga nicht klasse!")
  200.         (run (cat "ram:lhex >NIL: <NIL: -qfw=ram: x "(tackon #SRC #TLArchive)))
  201.         (delete (tackon "ram:" #TLArchive) (safe))
  202.  
  203.         (run "cd ram:MWB8")
  204.  
  205.     ;- Set where to do the install to
  206.  
  207.         (set #Target "DOPUSDEST:")
  208.  
  209.     
  210.     ;- Back-up the old Images drawer (if exists) and copy new images
  211.  
  212.         (if (= (exists "DOPUSDEST:Images" (noreq)) 2) 
  213.             (
  214.             (set #Tmp_msg "\n\nIhr altes Verzeichnis \"Images\" kann vor der Installation der neuen Bilder gesichert werden.")
  215.             (set images_exist 1)
  216.             )
  217.             (
  218.             (set #Tmp_msg " ")
  219.             (set images_exist 0)
  220.             )
  221.         )
  222.  
  223.         (if     (askbool (prompt #Title_msg
  224.                     "Die neuen Werkzeugleistenbilder werden"
  225.                     " ins Verzeichnis \"Dopus5:Images\" kopiert."
  226.                     #Tmp_msg)
  227.                 (choices #Go #Skip)
  228.                 (default 1)
  229.                 (help "Dieser Teil installiert alle Werkzeugleistenbilder.")
  230.             )
  231.             ( ; yes 
  232.             (if images_exist
  233.                 (
  234.                 (set #Bkup 1)
  235.                 (set #New_name (cat "Images" #Bkup))
  236.                 (while     (= (exists (cat "DOPUSDEST:" #New_name) (noreq)) 2)
  237.                     (
  238.                     (set #Bkup (+ #Bkup 1))
  239.                     (set #New_name (cat "Images" #Bkup))
  240.                     )
  241.                 )
  242.                 (if     (askbool (prompt #Title_msg
  243.                         "Wollen Sie Ihr aktuelles Verzeichnis"
  244.                         " \"Images\" sichern oder es mit den"
  245.                         " neuen Bildern überschreiben?\n\n"
  246.                         "Ihr altes Verzeichnis würde gesichert als "#New_name".")
  247.                     (choices "Ja - Sichern" "Nein - Überschreiben")
  248.                     (default 1)
  249.                     (help "Im Zweifelsfall wählen Sie Ja.")
  250.                     )
  251.                     (; backup Images
  252.                     (rename (tackon #Target "Images") (tackon #Target #New_name))
  253.                     )
  254.                 )
  255.                 )
  256.             )
  257.  
  258.             (copyfiles
  259.                 (source "ram:MWB8/Images")
  260.                 (dest (tackon #Target "Images"))
  261.                 (all)
  262.                 (optional force)
  263.                 )
  264.             )
  265.         )
  266.  
  267.     ;- Copy the Colours guide
  268.     
  269.         (if    (askbool (prompt #Title_msg
  270.                     "Wir haben auch einige einfache Abkürzungen"
  271.                     " beigepackt, die Ihnen ein schnelles Einstellen der MagicWorkbench-Farben erlauben.\n\n"
  272.                     "Wollen Sie dieses \"Colours\"-Verzeichnis installieren?")
  273.                 (default 1)
  274.                 (help "Dieser Teil installiert das MWB-Farben-Verzeichnis.")
  275.             )
  276.             (copyfiles
  277.                 (source "ram:MWB8/Colors")
  278.                 (dest (tackon #Target "Colors"))
  279.                 (all)
  280.                 (infos)
  281.                 (optional force)
  282.             )
  283.         )
  284.             
  285.     ;- Copy the new icons (for programs, files, etc)
  286.     
  287.         (if    (askbool (prompt #Title_msg
  288.                     "Die alten DOpus5-Dateipiktogramme werden nun ersetzt "
  289.                     "durch MagicWorkbench-Versionen.\n\n"
  290.                     "Wichtig: Für den Fall, daß Sie einige Tooltypes im "
  291.                     "Hauptpiktogramm von DirectoryOpus geändert haben, bleibt dies ungeändert. "
  292.                     "Sie sollten dies manuell installieren, wie es in der Hilfsdatei "
  293.                     "beschrieben ist, die später noch installiert wird.")
  294.                 (choices #Go #Skip)
  295.                 (default 1)
  296.                 (help "Dieser Teil installiert alle Programm- und Dateipiktogramme.")
  297.             )
  298.             (copyfiles 
  299.                 (source "ram:MWB8/DOpus_Icons")
  300.                 (dest #Target)
  301.                 (all)
  302.                 (optional force)
  303.             )
  304.         )
  305.     
  306.     ;- Copy the Help guide
  307.     
  308.         (if    (askbool (prompt #Title_msg
  309.                     "Eine AmigaGuide-Datei über MWB_DOpus 8, inklusive Tips und Tricks "
  310.                     "wird ins Verzeichnis \"DOpus5:Help\" kopiert.")
  311.                 (choices #Go #Skip)
  312.                 (default 1)
  313.                 (help "Dieser Teil installiert die Hilfsdatei.")
  314.             )
  315.             (copyfiles
  316.                 (source "ram:MWB8/Help/MWB_DOpus8_Help.guide")
  317.                 (dest (tackon #Target "Help"))
  318.                 (infos)
  319.                 (optional for